home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 05 - 1989 / 05.11 Nov 89 / Alternate Appl / alt1.c next >
Encoding:
C/C++ Source or Header  |  1989-08-20  |  4.2 KB  |  91 lines  |  [TEXT/MPS ]
  1. /************************************************************************/
  2. /*                                                                      */
  3. /*  Source   - Alternate.c                                              */
  4. /*  Author   - Alexander S. Colwell, Copyright (C) 1989                 */
  5. /*                                                                      */
  6. /*  Purpose  - This application will demostrate the AlternateCDEF       */
  7. /*             scroll bar using THINK C's object stuff.                 */
  8. /*                                                                      */
  9. /************************************************************************/
  10.  
  11. #include <Global.h>                 /* Global variable defs             */
  12. #include <CApplication.h>           /* Application object defs          */
  13. #include <Commands.h>               /* Command object defs              */
  14. #include <CBartender.h>             /* Menu object defs                 */
  15. #include <CDecorator.h>             /* Window display object defs       */
  16. #include <CDesktop.h>               /* Desktop layer object defs        */
  17. #include <CDocument.h>              /* Document object defs             */
  18. #include <CEditText.h>              /* Text edit object defs            */
  19. #include <CScrollPane.h>            /* Scrolling pane object defs       */
  20.  
  21. struct CAltDemoApp : CApplication { /* Application object               */
  22.     void    CreateDocument(void);   /* Create text edit window method   */
  23.     };
  24.  
  25. struct CAltDemoDoc : CDocument {    /* Document object                  */
  26.     void        NewFile(void);      /* Make new (bogus) file method     */
  27.     };
  28.  
  29. struct CAltDemoPane : CEditText {   /* Text edit pane object            */
  30.     void    IEditPane(CView *anEnclosure, CBureaucrat *aSupervisor);
  31.     };
  32.  
  33. #define altWIND         500         /* "Alternate Demo" WIND template   */
  34.  
  35.                                     /* Define external references       */
  36. extern  CApplication    *gApplication;/* Application object             */
  37. extern  CDecorator      *gDecorator;/* Window display object            */
  38. extern  CDesktop        *gDesktop;  /* Desktop view layer object        */
  39. extern  CBartender      *gBartender;/* Menu handler object              */
  40.  
  41. void main()
  42.  
  43.     {
  44.         gApplication = new(CAltDemoApp);/* Create new application object*/
  45.         gApplication->IApplication(4,4096L,2048L);/* Init application   */
  46.         gApplication->Run();        /* Startup application execution    */
  47.         gApplication->Exit();       /* Return to da "Finder"            */
  48.     }
  49.  
  50. void CAltDemoApp::CreateDocument()
  51.     {
  52.         CAltDemoDoc *theDocument;   /* Working new document object      */
  53.  
  54.         theDocument = new(CAltDemoDoc);/* Create new document object    */
  55.         theDocument->IDocument(this,FALSE);/* Initialize document object*/
  56.         theDocument->NewFile();     /* Create new (bogus) document file */
  57.     }
  58.  
  59. void CAltDemoDoc::NewFile(void)
  60.     {
  61.         CScrollPane     *theScrollPane; /* Working scroll pane object   */
  62.         CAltDemoPane    *theMainPane;/* Working main pane object        */
  63.  
  64.         itsWindow = new(CWindow);   /* Create new window object         */
  65.         itsWindow->IWindow(altWIND,FALSE,gDesktop,this);
  66.  
  67.         theScrollPane = new(CScrollPane);/* Create window's scrolling obj*/
  68.         theScrollPane->IScrollPane(itsWindow,this,10,10,0,0,sizELASTIC,sizELASTIC,
  69.                                    TRUE,TRUE,TRUE);
  70.         theScrollPane->FitToEnclFrame(TRUE, TRUE);
  71.         theMainPane = new(CAltDemoPane);
  72.         itsMainPane = theMainPane;
  73.         itsGopher = theMainPane;
  74.         theMainPane->IEditPane(theScrollPane,this);
  75.         theScrollPane->InstallPanorama(theMainPane);
  76.  
  77.         itsWindow->Select();        /* Select our window now!!          */
  78.     }
  79.  
  80.  
  81. void CAltDemoPane::IEditPane(CView *anEnclosure, CBureaucrat *aSupervisor)
  82.     {
  83.         Rect    margin;             /* Working margin rect area         */
  84.  
  85.                                     /* Setup text edit stuff            */
  86.         CEditText::IEditText(anEnclosure,aSupervisor,1,1,0,0,sizELASTIC,sizELASTIC,432);
  87.         FitToEnclosure(TRUE,TRUE);
  88.         SetRect(&margin,2,2,-2,-2);
  89.         ChangeSize(&margin,FALSE);
  90.     }
  91.